COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	begin 	integer value,flag,eof,brk,nb,nlast,i,j,bol,x
C00004 ENDMK
C⊗;
begin 	integer value,flag,eof,brk,nb,nlast,i,j,bol,x;
	integer array tabad [0:'5517];
	label e1,e2,e3,e4,e5;
	define crlf = "'15&'12";
	define tab = "'11";

	nb ← -1;
	nlast ← 0;
	setformat(-1,5);
	open(2,"DSK",8,8,0,400,brk,eof);
	open(1,"DSK",0,0,8,400,brk,eof);
	lookup(2,"LSR1.1",flag);
	enter(1,"DECOD.LST",flag);

e1:	
	nb ← nb+1; value ← wordin(2);
	if nb < '10 then go to e1;
	if nb > '174 then go to e2;
	out(1,cvxstr(value xor '400000000000)&tab);
	go to e1;

	COMMENT on se paye la zone LASTNAME. On ignore le 1er mot. ;
	value ← wordin(2); nb ← nb+1;
	
e2:
	COMMENT insertion sort en lisant les adresses de string;
	j ← 0;
	for nlast ← 1 step 1 until '5517 do
	begin
		value ← wordin(2);value ← value lsh -18;
		nb ← nb + 1;
		tabad[0]←value;
		while value<tabad[j] do
		begin	tabad[j+1]←tabad[j];j ← j-1;
		end;
		j←j+1;tabad[j]←value;
	end;
	
	out(1,crlf);
	
   while nb < '20547 do begin
	value ← wordin(2); nb ← nb+1;
	out(1,cvastr(value)&tab);
   end;

	close(1);
end;